home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TBUTIL2.LZH / CHECKPSP.INC < prev    next >
Text File  |  1984-07-13  |  721b  |  36 lines
  1.  
  2. PROCEDURE checkpsp( VAR was_psp:BOOLEAN; VAR pspq);
  3. {
  4.            JUNE 28, 1984
  5.  
  6.            Author:       Todd Little
  7.                          1318 Bullock
  8.                          Houston, TX  77055
  9.                          713-984-2055 h
  10.                              578-3210 w
  11.  
  12. }
  13.  
  14. VAR
  15.    i,n : INTEGER;
  16.    psp : STRING[128] ABSOLUTE pspq;
  17.  
  18. BEGIN
  19.    psp := '';
  20.    was_psp := FALSE;
  21.    n := MEM[cseg:$0080];
  22.    IF n <> 0 THEN
  23.    BEGIN
  24.       FOR i := 1 TO n DO
  25.         psp := CONCAT(psp,CHR(MEM[cseg:i+$80]) );
  26.       i := 1;
  27.       WHILE (i<n-1) AND (NOT was_psp) DO
  28.       BEGIN
  29.         IF CHR(MEM[cseg:i+$80]) <> ' ' THEN was_psp := TRUE;
  30.         i := i+1;
  31.       END;
  32.    END;
  33.  
  34.  
  35. END;
  36.